home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The 640 MEG Shareware Studio 4
/
The 640 Meg Shareware Studio CD-ROM Volume IV (Data Express)(1994).ISO
/
clang
/
cenvid.zip
/
KEYSTUFF.BAT
< prev
next >
Wrap
DOS Batch File
|
1993-04-06
|
898b
|
30 lines
@echo off
REM KeyStuff - Short program to stuff up to 15 characters in the keyboard buffer
if "%1"=="" GOTO INSTRUCTIONS
if not "%2"=="" GOTO INSTRUCTIONS
REM check that the string is not longer that 15 characters
cenvi return(strlen("%1"))
if errorlevel 16 GOTO INSTRUCTIONS
REM poke characters into the keyboard buffer in low memory
cenvi "n=strlen(s="%1") poke(0x41A,0x41E) poke(0x41C,0x41E+n*2) while(0<n--) poke(0x41E+n*2,s[n])"
GOTO FINI
:INSTRUCTIONS
echo
echo KeyStuff - Stuff up to fifteen characters in the keyboard buffer
echo
echo USAGE: KeyStuff String
echo Where String is fifteen or fewer bytes for the keyboard buffer
echo
echo EXAMPLE: The following batch file would start up BASIC.COM with the initial
echo command: Load "Truck"
echo call KeyStuff Load\"Truck\"\r
echo basica.com
echo
:FINI